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SSEP=198¢ 06:59:08 EUmSLIB. SREDCVYATBCRAR: 1 


TITL IBSCVT_ATB = AS RT NARY R 
TATE GeescyT CII NUMBER TO BI! CONVERSION 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Y if ACCORDANCE WITH THE TERMS OF SUCH N 

LUSION OF THE ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER 
1 4 0 PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pannsrchetee - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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EQUATED SYMBOLS: 


++ 


COUNT =4 : COUNT as IN ARG LIST 
STRING = 8 : STRING A 
RESULT = 12 ; RESULT ADDRESS 


FACILITY: SYSTEM LIBRARY 
ABSTRACT: 


THIS eed oa P paar ests? INTEGER TO BINARY CONVERSION IN 


DECIMAL ADIX; RADIX DETERMINED BY ENTRY POINT. 
AN OPTtONAL LEADING Sian” 1S ACCEPTED. 

ENVIRONMENT: 
STAR NATIVE MODE PROCESSOR, ANY ACCESS $LEVEL. NO SPECIAL 
INSTRUCTIONS OR SYSTEM SERVICES ARE U LONGWORDS OF 


STACK SPACE NEEDED. 


-SBTTL HISTORY ; DETAILED 


: AUTHOR: ANDREW C. GOLDSTEIN 26-JAN-78 16:48 
: MODIFIED BY: 
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v03-001 $8L3001 Steven B. Lionel, 28-0c t-1982 
Use .ENTRY instead of .WORD for entry mask. 


1-009 ACG0049 Andrew C. Goldstein, 20-Jun-1979 15:11 
Change module name to LIBSCVT _ATB per RTL standards 


v0008 ACG0024 Andrew C. Goldstein, 27-Feb-1979 16:38 
Fix ident and PSECTs for new *RTL standards 
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ER TO BINARY CONVERSION 16-SEP-1984 02:17:1 AX/VMS Macro V04-00 Page 
aes 1 $2: 45%) VMSLIB.SRCICVTATB.MAR; 1 . d) 
aS -SBTTL DECLARATIONS 
FUNCTIONAL DESCRIPTION: 
THE ROUTINE WORKS IN THE OBVIOUS MANNER OF ALL CONVERSION ROUTINES 
IT SCANS THE tert! STRING AND sONvenTs EACH CHARACTER {NTO ITs 
NUMERICAL EQUIVALENT AND CHECKS IT FOR LEGALITY AGAINST THE RADIX. 
THE NUMBER BEING ACCUMULATED IS THEN MULTIPLIED BY THE RADIX AND THE 
NEW DIGIT IS ADDED IN. RADIX CHARACTERS IN THE INPUT STRING CAUSE 
AN ERROR RETURN. A_SIGN IN OTHER THAN THE FIRST CHARACTER POSITION 
AND OVERFLOW FROM 32 BITS (UNSIGNED) ALSO CAUSE AN ERROR RETURN. 
CALLING SEQUENCE: 
CALL LIBSCVT_DTB (COUNT, STRING,RESULT) ; CONVERT DECIMAL TO BINARY 
CALL LIBSCVT_OTB (COUNT, STRING,RESULT) ; CONVERT OCTAL TO BINARY 
CALL LIBSCVT_HTB (COUNT,STRING,RESULT) ; CONVERT HEX TO BINARY 
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INPUT PARAMETERS: 
COUNT: BYTE COUNT OF INPUT STRING 
STRING: ADDRESS OF INPUT STRING 

IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

RESULT: ADDRESS TO STORE LONGWORD RESULT 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

RO = 1 SUCCESFUL CONVERSION 
= 0 ILLEGAL CHARACTER OR ZERO BYTE COUNT 


SIDE EFFECTS: 
NONE 


-ENABL LSB 
-PSECT _LIBSCODE ,NOWRT ,PIC,SHR,LONG 


BASETAB: .BYTE “a'a', “a'at “a'o’ 


E ? 
TOPTAB: -BYTE *At2", “A°2*, “args 
VALTAB: "BYTE ‘“A*a'-10, *A'A'-10, *A'O'-00 
SENTRY L 1escvt D1B,- ; ENTRY FOR DECIMAL CONVERT 
<M<R2,R3,R4,.R5> > SAVE REGISTERS 2-5 
MOVL #10.Re : R2 = RADIX 
BRB 10 
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1 : -ENTRY LIBSCVT_OTB,- 
1 M<R2,R3,R4,R5> 
1 0 MOVL #8,R 

BRB 10$ 

1 5 ENTRY 1escvt HTB,- 
134 M<R2,R3,R4,R5> 
5 MOVL #16,R2 

1 $ 10$: CLRQ R 

1 CLRQ OR 

1 5 DECL 

146 BRB 70$ 

168 20$: MOVZBL a@STRING(AP)CR3],R5 
14 TSTL OR 

144 BNEQ 308 

128 grees 

123 CMPB RS. #*A'=" 

148 BNEQ 308 

14 INCL RS 

130 BRB 70$ 

133 30$: CLRL RI 

13 40S: CHPE R5 ,BASETABLR1) 
155 CMPB sR, TOPTABLR1) 
1 : BLEQU 

157 50$:  AOBLSS #3,R1,40$ 

8 BRB 90$ 

160 60S: SUBB VALTABCR1],R5 
168 BGEGU 

16 EMUL Re.RO,RS.RO 
164 TSTL OR 

165 BNEG 90% 

189 70$:  AOBLSS COUNT(AP),R3,20$ 
189 BLBC R480 

1 MNEGL RO.R 

171 80$: MOVL RO BRESULT (AP) 
17 MOVL #1.RO 
aoe 

125 + TO HERE ON ANY BAD CHARACTER 
133 $0s: CLRL = RO 

178 RET 

17 

0 .DSABL LSB 

1 

188 

184 END 
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ENTRY FOR OCTAL ~ eel 
SAVE REGISTERS 2- 
R2 = RADIX 


TERS 2-3 


NUMBER 
NTER & SIGN 
TESTED LOOP 


CTER 
FIRST CHARACTER 
IF NOT 
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SET NEGATIV 
OK - LOOP F 
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C 
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LOOP FOR DIGITS 


CHECK SIGN BIT 

MAKE NEGATIVE IF DESIRED 
STORE RESULT 

RETURN TRUE 


RETURN FALSE 


T BASE CHARACTER 
T TOP CHARACTER 
RY NEXT LOWER BASE 


VALUE (NOTE = ALWAYS +) 


RADIX AND ADD DIGIT 
FLOW 
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Symbol fable aad tt 8345503 EUMSLIB. SREICVTATB OMAR: 1 . (1) 
BASETAB g 02 OP$_CVTLD = O6E OP$_SCANC s A 
NT = OP$-CVTLF s OP$=SKPC = 8 
LIBSCVT_DTB RG OP$-CVTLG s FD OP$" SPAN 2 
LIBSCVT"HTB RG OP$"CVTLH z F OP$" SUBD = 
Liescyi OTB RG OPS"CVTLP = F OP$~ SUBD s 
OP$_ACB = OPS-CVTPL = OP$" SUBF 2 
OP$_ACBF = OPS$-CVTPS = OP$" SUBF = 4 
OP$_ACBG s OP$-CVTPT s OP$=SUBG s 42FD 
OP$_ACB = OP$-CVTRDL = OP$"SUBG s 43FD 
OP$_ADDD = OPS"CVTRFL = B OP$=SUBH = qf 
“Ad = OP$"CVTRGL 3 4BFD $"SUBH s F 
OP$_ADDF = OP$"CVTRHL z F OP$- SUBP4 2 
OP$_ADDF = OP$-CVTSP s OP$"SUBP6 = 
OP$_ADDG = OPS"CVTTP s 6 OP$-TSTD = 
OPSADDA : OPs-CvTur : OPs-Ts16 «= (000053F 
= = = 
OP$_ADDH = OP$-CVTWG z 4DFD OP$"TSTH 2 9 FD Th 
OP$_ADDP4 s OPS" CVTWH = Soro ESOLT = on ME 
OPSTASHP, OPS-DIVD : 00067 TOPTAS * 90000008 Ro 
= = 
OP$_CLRD = OP$-DIVF s 1g VALTAB 00000006 R $5 
“CLRF = OP$"DIVF = 0000004 
OP$-CLRG = OP$"DIVG = Beged 
“CLRH z OP$"-DIVG = 000047FD 
OP$_CMPD = OP$—DIVH = S DogeD 
“CMPF = OP$"DIVH = 000 FD 
~CMPG = OP$"DIVP 2 38 Oe 
OP$_CMPH s OP$"EDITPC = 
“CMPP = OP$-EMODD = 00000074 
OPS_CMPP4 z $"EMODF s . Bp3 
“CRC = OP$"EMODG = 000054FD 
“CVT s OP$"EMODH = 000074FD 
OP$-CVTBF s OP$"MATCHC = $ ; 
OP$_CVTBG = OP$—MNEG = 
OP$-CVTBH s OP$—MNE GF s 900 5 
OP$_CVTDB = OP$"MNEGG = 000052FD 
OP$-CVTDF £ OP$—MNEGH z 9 . 
OP$_CVTDH s OP$-MOV = 7 
OP$_CVTOL = OP$_MOVF z 0005 
OP$_CVTDW = OP$—MOV = FO 
OP$_CVTFB = OP$-MOVH s FD 
OP$_CVTFD s OP$-MOVP z 
OP$_CVTFG = OP$-MOVT = E 
OP$-CVTFH s OP$"MOVTUC = F 
OPS-CVTFL s OP$-MULD = 
OPS-CVTFW 2 OP$—-MULD = 5 
OP$"CVTGB z nF OP$—MULF = 44 
OP$_CVTGF s F OP$—MULF = 5 
OP$-CVTGH z F OP$"MULG = FD 
OP$-CVTGL = : OP$—MUL = FD 
OP$- CVTGW s F OP$"MULH z FD 
OP$~CVTHB = 68F OP$"MULH s F 
OP$-CVTHD z F $"MULP = 
OPS" CVTHF s F “POLYD = 
OP$-CVTHG s F OP$"POL YF = 
OP$"CVTHL = F OP$"POLYG = FD 
OPS" CVTHW s 6 OF $"POL = FD 
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VMSLIB.SR JCVTATB.MAR; 1 
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! Psect synopsis ! 


¢ eee rmoen ces eesasace $} 


PSECT name Allocation PSECT No. Attributes 

- ABS . 698 980008 +) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ a -) QO1¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
_LIBSCODE $8 007A Wee Get 2.2 PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 3¢ 90:00: 9.09 08:00:00.3 
zounens processing 124 0:00: :- § sf 4.9 
344 00:00:08.4 Bap 716.9 

Synbol table sort 8 83: 8888 0: B10) Ag 
s2 4 0:00:03.0 He 
Syabot table output 11 00:00:00.1 0:00:00.30 
Psect synopsis output 3 Bo 288: .0 28 8 OE 
Cross-reference output 0 00:00:00.0 ses Bes 
Assembler run totals 564 00:00:13.0 00:00:30.16 


The working set Limit was 1200 pages. 
19 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 370 non-local and 9 Local symbols. 
source Lines were read in Pass 1, producing 18 object records in Pass 2. 
134 pages of virtual memory were used to define 133 macros. 
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Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
420 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/DISA=TRACE/LIS=LIS$:CVTATB/OBJ=OBJ$:CVTATB MASDS: CEMULAT.SRCIMISSING/UPDATE=(MASD$: CEMULAT.ENHIJMISSING) +MASD$:CVMSLIB.SRCICVTA 
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